BBS in a Box 15/BBS in a box XV-1.iso/Files/Tele/C/CommsService 2.0.2.sit/commsService 2.0.2 Final/Service Definition Files/Cambridge University

Text File | 1994-09-20 | 3.0 KB | 82 lines | [TEXT/cSSv]

#
# commsService 2.0 Service Definition File.
#
Name=Cambridge University
Description=Provides access to the Cambridge University Library's OPAC.
Access is via 'janet', the UK network switch.
Options available include -
    University Library Main Building - catalogue of post-1977 imprints
    University Library Main Building - title index of pre-1978 borrowable books
    Union Catalogue of Departmental & College Libraries
    Cambridge Union List of Serials
    Cambridge Libraries Directory (including abbreviations)

TimeOut=0
BreakEnabled=No
PagesToScroll=10
TerminationString=Connection closed
ConnectionTool=TGE TCP Tool
ConnectionTokens=HostName sun.nsf.ac.uk PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType VT100
ConnectionMenu=No
TerminalTool=VT102 Tool
TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap True NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
TerminalMenu=No
ServiceScripts=on LoginToService
Global ActiveService, FoundString
if navigateJanet("UK.AC.CAM.UL", "press RETURN") then
if SendToService(ActiveService,"Y" & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Does this display as an e acute") then
if FoundString = 1 then
if SendToService(ActiveService, "Y" & return, "") then
repeat
get ExpectFromService(ActiveService, 20, true, true, "Press RETURN to continue", "CAMBRIDGE UNIVERSITY ON-LINE CATALOGUE SYSTEM")
if FoundString = 2 then return true
if FoundString ≠ 1 then exit repeat
if not(SendToService(ActiveService, return, "")) then exit repeat
end repeat
end if
end if
end if
end if
end if
return false
end LoginToService
------------------
function navigateJanet Address, FirstPrompt
Global ActiveService, FoundString
if ExpectFromService(ActiveService, 20, true, true, "All network ports in use", "login") then
if FoundString > 0 then
if FoundString = 1 then
beep
answer "All network ports are currently in use !!" & return & return & "Try again later !?!?"
else
if SendToService(ActiveService, "janet" & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Password") then
if FoundString = 1 then
if SendToService(ActiveService, return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Enter a JANET hostname") then
if FoundString = 1 then
if SendToService(ActiveService, Address & return, "") then
if ExpectFromService(ActiveService, 20, true, true, "Connection refused", FirstPrompt) then
if FoundString = 2 then
return true
else
beep
answer "Connection has been refused !!" & return & return & "Try again later !?!?"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
return false
end navigateJanet